WWW Studio 2004/WWW Studio.iso/Programy/Demo/angielskidemo_setup.exe/#setuppath#/4.dxr/00012_domekzadanie1.ls

Text File | 2004-02-01 | 5.4 KB | 209 lines

global domekzadanie1_Pactions, gv_currenthelp, gv_Pactions, gv_tlumaczenie, domekzadanie1_zestaw, domekzadanie1_liczbabledow

on domekzadanie1_begin
  global gcurrenttlo
  gf_pactions_clear()
  dialog_exit(#init)
  show(21, 41)
  gcurrenttlo = "4_1801L.WAV"
  puppetTloOFF()
end

on domekzadanie1_end
end

on domekzadanie1_firstenter
  domekzadanie1_init()
  SetVisibility(0, 120)
  if gfang_checknagroda(#domek1) then
    snd = "4_010201.WAV"
  else
    snd = "4_0102.WAV"
  end if
  domek_zwierzak(2, snd, 1, "domek_zwierzakcompl2(2,1)")
end

on domekzadanie1_ef
  sequenceaction()
  gf_tlo()
end

on domekzadanie1_Pspr spnr
  case spnr of
    6:
      domek_Pspr(spnr)
    8:
      domekzadanie1_polecenie()
    83:
      Paction_sound("10_04P.WAV")
  end case
end

on domekzadanie1_PFspr spnr
  case spnr of
    83:
      setfromcoords(48, spnr)
  end case
end

on domekzadanie1_Dspr spnr
  case spnr of
    83:
      setfromcoords(49, spnr)
  end case
end

on domekzadanie1_Lspr spnr
  case spnr of
    6:
      domek_Lspr(spnr)
    83:
      setfromcoords(47, spnr)
      Laction()
  end case
end

on domekzadanie1_Wspr spnr
  domekzadanie1_Lspr(spnr)
  case spnr of
    6:
      if gfang_checknagroda(#domek1) then
        snd = "4_010201.WAV"
      else
        snd = "4_0102.WAV"
      end if
      domek_zwierzak(2, snd, 1)
    83:
      dialog_exit(#show, "9_0301.WAV")
    139:
      gf_actiongo("domek", #none)
  end case
end

on domekzadanie1_elem f, spnr, ml
  case f of
    #catch:
      sprite(spnr).visible = 0
      sprite(50).member = sprite(spnr).member
      sprite(50).loc = ml
      updateStage()
      return 1
    #drag:
      sprite(50).loc = ml
    #drop:
      disposeBMPsprite(50)
      FX("klocek.wav")
      if ml.inside(sprite(13).rect) then
        if count(domekzadanie1_zestaw) > 0 then
          if (spnr - 30) = getAt(domekzadanie1_zestaw, 1) then
            s = line spnr - 30 of field "domekzadanie1.cfg"
            sprite(spnr).Disable = 1
            sprite(spnr).loc = point(integer(item 4 of s), integer(item 5 of s))
            deleteAt(domekzadanie1_zestaw, 1)
            if count(domekzadanie1_zestaw) > 0 then
              gf_blockevents()
              sequenceaction_clear(#ocena)
              sequenceaction_addaction("setfromcoords(11,45)", VOID, #ocena)
              sequenceaction_addsound("4_0219.WAV", #ocena)
              sequenceaction_addaction("setfromcoords(7,45)", VOID, #ocena)
              sequenceaction_addaction("domekzadanie1_polecenie()", VOID, #ocena)
            else
              if gfang_checknagroda(#domek1) then
                snd = "pochwala_bez_tortu.wav"
              else
                snd = "4_0104.WAV"
              end if
              domek_zwierzak(2, snd, 1, "domek_zwierzakcompl3(2,1)")
              gfang_nagroda(#domek1)
            end if
          else
            domekzadanie1_liczbabledow = domekzadanie1_liczbabledow + 1
            if domekzadanie1_liczbabledow >= 3 then
              domek_zwierzak(2, "4_0105.WAV", 1, "domek_zwierzakcompl3(2,1)")
            else
              gf_blockevents()
              sequenceaction_clear(#ocena)
              sequenceaction_addaction("setfromcoords(12,45)", VOID, #ocena)
              sequenceaction_addsound("4_0220.WAV", #ocena)
              sequenceaction_addaction("setfromcoords(7,45)", VOID, #ocena)
              sequenceaction_addaction("domekzadanie1_polecenie()", VOID, #ocena)
            end if
          end if
        end if
      end if
      sprite(spnr).visible = 1
      updateStage()
  end case
end

on domekzadanie1_init
  domekzadanie1_liczbabledow = 0
  L = [216, 386, 123, 541, 649, 449, 496, 354, 224, 532, 380, 534, 363, 366, 726, 491, 494, 531, 90, 416, 684, 558]
  domekzadanie1_zestaw = randomlist(6, 1, 10)
  pos = randomlist(6, 1, 11)
  nr = 1
  repeat with i = 1 to 10
    if getOne(domekzadanie1_zestaw, i) > 0 then
      sprite(30 + i).Disable = 0
      ind = (getAt(pos, nr) * 2) - 1
      sprite(30 + i).loc = point(getAt(L, ind), getAt(L, ind + 1))
      nr = nr + 1
      next repeat
    end if
    s = line i of field "domekzadanie1.cfg"
    sprite(30 + i).Disable = 1
    sprite(30 + i).loc = point(integer(item 4 of s), integer(item 5 of s))
  end repeat
end

on domek_zwierzak zwierzak, WAV, block, extconfirm, symb
  randomactions_freeze()
  if voidp(symb) then
    symb = #zwierzak
  end if
  if voidp(extconfirm) then
    extconfirm = "domek_zwierzakcompl(" & zwierzak & "," & block & ",#" & symb & ")"
  end if
  if block then
    gf_setconfirm(extconfirm)
  end if
  setfromcoords(2 * zwierzak, 41 + zwierzak)
  sequenceaction_clear(symb)
  sequenceaction_addsound(WAV, symb)
  sequenceaction_addaction(extconfirm, VOID, symb)
  sequenceaction()
end

on domek_zwierzakcompl zwierzak, block, symb
  if voidp(symb) then
    symb = #zwierzak
  end if
  if block then
    gf_clearconfirm(1)
  end if
  sequenceaction_clear(symb)
  setfromcoords((2 * zwierzak) - 1, 41 + zwierzak)
  puppetSoundOFF()
  updateStage()
  randomactions_allow()
end

on domek_zwierzakcompl2 zwierzak, block
  domek_zwierzakcompl(zwierzak, block)
  domekzadanie1_polecenie()
end

on domek_zwierzakcompl3 zwierzak, block
  domek_zwierzakcompl(zwierzak, block)
  gf_actiongo("domek", #none)
end

on domekzadanie1_polecenie
  if count(domekzadanie1_zestaw) > 0 then
    gf_unblockevents()
    nr = getAt(domekzadanie1_zestaw, 1)
    L = line nr of field "domekzadanie1.cfg"
    domek_zwierzak(4, item 3 of L & "p.wav", 1)
  end if
end